home *** CD-ROM | disk | FTP | other *** search
/ Essentials of Interactive Physiology / Essentials of Interactive Physiology.iso / pc / files / evaluation / evaluation.dcr / 00011.ls < prev    next >
Encoding:
Text File  |  2002-04-02  |  300 b   |  9 lines
  1. on renameMembers xsOldname, xsNewName
  2.   repeat with i = 351 to 379
  3.     a = member(i, "quizArt").name
  4.     vsNewName = SearchAndReplaceFirstOccurrance(a, ".down", EMPTY)
  5.     vsNewName = SearchAndReplaceFirstOccurrance(vsNewName, "_", "Label")
  6.     member(i, "quizArt").name = vsNewName
  7.   end repeat
  8. end
  9.